home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / GIMP 2.6.8 / gimp-2.6.8-i686-setup.exe / {app} / share / gimp / 2.0 / scripts / guides-from-selection.scm < prev    next >
Text File  |  2009-12-15  |  1KB  |  44 lines
  1. ;; -*-scheme-*-
  2.  
  3. (define (script-fu-guides-from-selection image drawable)
  4.   (let* (
  5.         (boundries (gimp-selection-bounds image))
  6.         ;; non-empty INT32 TRUE if there is a selection
  7.         (selection (car boundries))
  8.         (x1 (cadr boundries))
  9.         (y1 (caddr boundries))
  10.         (x2 (cadr (cddr boundries)))
  11.         (y2 (caddr (cddr boundries)))
  12.         )
  13.  
  14.     ;; need to check for a selection or we get guides right at edges of the image
  15.     (if (= selection TRUE)
  16.       (begin
  17.         (gimp-image-undo-group-start image)
  18.  
  19.         (gimp-image-add-vguide image x1)
  20.         (gimp-image-add-hguide image y1)
  21.         (gimp-image-add-vguide image x2)
  22.         (gimp-image-add-hguide image y2)
  23.  
  24.         (gimp-image-undo-group-end image)
  25.         (gimp-displays-flush)
  26.       )
  27.     )
  28.   )
  29. )
  30.  
  31. (script-fu-register "script-fu-guides-from-selection"
  32.   _"New Guides from _Selection"
  33.   _"Draw a grid as specified by the lists of X and Y locations using the current brush"
  34.   "Alan Horkan"
  35.   "Alan Horkan, 2004.  Public Domain."
  36.   "2004-08-13"
  37.   "*"
  38.   SF-IMAGE    "Image"    0
  39.   SF-DRAWABLE "Drawable" 0
  40. )
  41.  
  42. (script-fu-menu-register "script-fu-guides-from-selection"
  43.                          "<Image>/Image/Guides")
  44.